home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 051-075 / disk_061 / microemacs / emacs.rc < prev    next >
Text File  |  1992-05-06  |  5KB  |  211 lines
  1. ;    EMACS.RC:    Startup file for MicroEMACS 3.8
  2. ;
  3. ;            This file is executed everytime the
  4. ;            editor is entered
  5.  
  6. ; If you screen "SNOWS", uncomment this line
  7. ;    set $flicker "TRUE"
  8.  
  9. ;    ***** Rebind the Function key group
  10.  
  11. bind-to-key search-forward        FN;
  12. bind-to-key search-reverse        FN<
  13. bind-to-key hunt-forward        FN=
  14. bind-to-key hunt-backward        FN>
  15. bind-to-key next-window            FN?
  16. bind-to-key execute-macro        FN@
  17. bind-to-key find-file            FNA
  18. bind-to-key execute-file        FNB
  19. bind-to-key save-file            FNC
  20. bind-to-key exit-emacs            FND
  21.  
  22. bind-to-key apropos            FNV
  23. bind-to-key describe-key        FNW
  24. bind-to-key fill-paragraph        FNX
  25. bind-to-key shell-command        FN\
  26. bind-to-key i-shell            FN]
  27.  
  28. ;    set screen colors
  29. add-global-mode "blue"
  30.  
  31. ;    toggle function key window off
  32. 1 store-macro
  33.     save-window
  34.     1 next-window
  35.     !if &sequal "Function Keys" $cbufname
  36.         delete-window
  37.     !endif
  38.     bind-to-key execute-macro-14 FNT
  39. !force    restore-window
  40.     write-message "[Function key window OFF]"
  41. !endm
  42.  
  43. ;    toggle function key window back on
  44. 14 store-macro
  45.     1 next-window
  46.     !if &sequal $cbufname "emacs.hlp"
  47.         execute-macro-11
  48.     !endif
  49.     !if ¬ &sequal $cbufname "Function Keys"
  50.         1 split-current-window
  51.         select-buffer "Function Keys"
  52.         add-mode "red"
  53. !force        5 resize-window
  54.         beginning-of-file
  55.     !endif
  56.     bind-to-key execute-macro-1 FNT
  57.     2 next-window
  58.     write-message "[Function key window ON]"
  59. !endm
  60.  
  61. ;    Enter Help
  62. 2 store-macro
  63.     1 next-window        ;Make sure the function key window isn't up!
  64.     !if &sequal $cbufname "Function Keys"
  65.         delete-window
  66.         bind-to-key execute-macro-14 FNT
  67.     !endif
  68.     help
  69.     8 resize-window
  70.     bind-to-key execute-macro-12 FNI
  71.     bind-to-key execute-macro-13 FNQ
  72.     bind-to-key execute-macro-11 FNU
  73.     bind-to-key execute-macro-15 ^XO
  74.     bind-to-key execute-macro-15 ^XP
  75.     bind-to-key execute-macro-15 FN?
  76.     add-mode "red"
  77.     beginning-of-file
  78.     2 forward-character
  79.     clear-message-line
  80. !endm
  81.  
  82. ;    Exit Help
  83. 11 store-macro
  84.     bind-to-key previous-page FNI
  85.     bind-to-key next-page FNQ
  86.     bind-to-key execute-macro-2 FNU
  87.     bind-to-key next-window ^XO
  88.     bind-to-key previous-window ^XP
  89.     bind-to-key next-window FN?
  90.     delete-window
  91.     clear-message-line
  92. !endm
  93.  
  94. ;    don't allow these commands from within the HELP screen
  95. 15    store-macro
  96.     write-message "[Use F2 to exit HELP]!!"
  97. !endm
  98.  
  99. ;    last help page
  100. 12 store-macro
  101.     beginning-of-line
  102.     search-reverse "=>"
  103.     1 redraw-display
  104. !endm
  105.  
  106. ;    next help page
  107. 13 store-macro
  108.     beginning-of-line
  109.     2 forward-character
  110.     search-forward "=>"
  111.     1 redraw-display
  112. !endm
  113.  
  114. ;    reformat indented paragraph
  115.  
  116. 6 store-macro
  117.     write-message "                    [Fixing paragraph]"
  118.     kill-region
  119.     2 split-current-window
  120.     select-buffer "[temp]"
  121.     yank
  122.     beginning-of-file
  123.     replace-string "~n    " "~n"
  124.     write-message "                    [Fixing paragraph]"
  125.     66 set-fill-column
  126.     write-message "                    [Fixing paragraph]"
  127.     fill-paragraph
  128.     77 set-fill-column
  129.     beginning-of-file
  130.     handle-tab
  131.     replace-string ~n "~n    "
  132.     write-message "                    [Fixing paragraph]"
  133.     end-of-file
  134.     2 delete-previous-character
  135.     beginning-of-file
  136.     set-mark
  137.     write-message "                    [Fixing paragraph]"
  138.     end-of-file
  139.     kill-region
  140.     unmark-buffer
  141.     delete-window
  142.     yank
  143.     delete-buffer "[temp]"
  144.     write-message "                    [Fixed paragraph]"
  145. !endm
  146.  
  147. ;    indent region
  148.  
  149. 7 store-macro
  150.     write-message "                    [Indenting region]"
  151.     kill-region
  152.     2 split-current-window
  153.     select-buffer "[temp]"
  154.     yank
  155.     beginning-of-file
  156.     handle-tab
  157.     replace-string "~n" "~n    "
  158.     end-of-file
  159.     4 delete-previous-character
  160.     beginning-of-file
  161.     set-mark
  162.     write-message "                    [Indenting region]"
  163.     end-of-file
  164.     kill-region
  165.     unmark-buffer
  166.     delete-window
  167.     yank
  168.     delete-buffer "[temp]"
  169.     write-message "                    [Region Indented]"
  170. !endm
  171.  
  172. ;    undent region
  173.  
  174. 8 store-macro
  175.     write-message "                    [Undenting region]"
  176.     kill-region
  177.     2 split-current-window
  178.     select-buffer "[temp]"
  179.     yank
  180.     beginning-of-file
  181.     delete-next-character
  182.     replace-string "~n    " "~n"
  183.     end-of-file
  184.     2 delete-previous-character
  185.     beginning-of-file
  186.     set-mark
  187.     write-message "                    [Undenting region]"
  188.     end-of-file
  189.     kill-region
  190.     unmark-buffer
  191.     delete-window
  192.     yank
  193.     delete-buffer "[temp]"
  194.     write-message "                    [Region undented]"
  195. !endm
  196.  
  197. ;    bring up the function key window
  198.  
  199.     1 split-current-window
  200.     select-buffer "Function Keys"
  201.     add-mode "red"
  202.     5 resize-window
  203.     insert-string "f1 search      f2 search back | F1 toggle function list F2 toggle help file~n"
  204.     insert-string "f3 hunt        f4 hunt back   | F3 find command/apropos F4 describe key~n"
  205.     insert-string "f5 next window f6 exec macro  | F5 reformat paragraph   F6 ref undented region~n"
  206.     insert-string "f7 find file   f8 exec file   | F7 indent region        F8 undent region~n"
  207.     insert-string "f9 save file  f10 exit emacs  | F9 execute DOS command F10 shell up~n"
  208.     beginning-of-file
  209.     unmark-buffer
  210.     next-window
  211.